Simplify remove_slash_colon

* src/process.c (remove_slash_colon): Simplify
and avoid a special case for "/:" by itself.

diff --git a/src/process.c b/src/process.c
index 730caea677f9cedf2b6377b7c10d0892444e943b..c45a3f63ce5b151794949fe954815f49af97af45 100644 (file)
--- a/src/process.c
+++ b/src/process.c
@@ -7692,7 +7692,7 @@ Lisp_Object
 remove_slash_colon (Lisp_Object name)
 {
   return
-    ((SBYTES (name) > 2 && SREF (name, 0) == '/' && SREF (name, 1) == ':')
+    (SREF (name, 0) == '/' && SREF (name, 1) == ':'
      ? make_specified_string (SSDATA (name) + 2, SCHARS (name) - 2,
                              SBYTES (name) - 2, STRING_MULTIBYTE (name))
      : name);